home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 21 Sound & Utilities / SOUND.BIN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  896 b   |  20 lines
  1. 10 POKE56,14:POKE55,.:CLR:GOTO2020
  2. 20 Q$=CHR$(34):F$="ELLA.BIN":PRINT"[147]WITH ";Q$;F$;Q$;" ON DISK IN DEVICE 8,"
  3. 30 M$=CHR$(13):PRINT"PRESS RETURN."
  4. 40 GETA$:IFA$=M$THEN60
  5. 50 GOTO40
  6. 60 PRINT"[147]SEARCHING FOR ";F$
  7. 70 OPEN8,8,8,F$
  8. 80 FORI=1TO2000:NEXT:PRINT"":SYS3584
  9. 90 PRINT"[147][142]PRESS RETURN FOR SOUND."
  10. 100 PRINT"(PRESS X TO EXIT.)"
  11. 110 GETA$:IFA$="X"THENPOKE56,160:END
  12. 120 IFA$=M$THENPOKE155,16:POKE156,239:SYS3695:SYS3728:GOTO90
  13. 130 GOTO110
  14. 2020 PRINT"[147]ONE MOMENT PLEASE..."
  15. 2030 P=PEEK(45)+256*PEEK(46)-1
  16. 2040 IFPEEK(P)THENP=P-1:GOTO2040
  17. 2050 P=P-300
  18. 2060 FORI=.TO300:POKE3584+I,PEEK(P+I):NEXT
  19. 2070 POKE2069,48:GOTO20
  20.